home *** CD-ROM | disk | FTP | other *** search
/ CD School House 9 / CD School House 9.0 - Wayzata Technology (1994).iso / pc / games / mac / __adventureland__ / __adventure_helpers__ / tarotmatic / background_25031.txt < prev    next >
Text File  |  1991-01-02  |  7KB  |  292 lines
  1. -- background: 25031 from stack: in
  2. -- bmap block id: 25415
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Text
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 2007
  11. -- rect: left=12 top=29 right=329 bottom=396
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 4
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: Reading
  20.  
  21.  
  22. -- part 2 (button)
  23. -- low flags: 00
  24. -- high flags: A000
  25. -- rect: left=415 top=50 right=100 bottom=489
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 1016 / 1016
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: New Reading
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   global Reading
  37.   global Cards
  38.   global Directions
  39.   global SigName
  40.   global Status
  41.   global QuerentName
  42.  
  43.   set scroll of bkgnd field "Reading" to 0
  44.  
  45.   if bkgnd field "Reading" <> "" then
  46.  
  47.     play "Buttons1"
  48.     answer "Throw Out This Reading, Oh Master?" with "Yes" or "No!"
  49.     if it is "No!"then
  50.     exit mouseUp
  51.   end if
  52.  
  53. end if
  54.  
  55. Put "" into bkgnd field "Reading"
  56. Put "" into Reading
  57. wait 30
  58. play "Buttons2"
  59.  
  60. put "Tarot Reading for: " & QuerentName &" : "& the date into line 1 of "Reading"
  61.  
  62. put   line 1 of Cards && line 1 of Directions &&"covers you..."into line 3 of Reading
  63. put   line 2 of Cards && line 2 of Directions &&"crosses you..."into line 4 of Reading
  64. put   line 3 of Cards && line 3 of Directions &&"is behind you..."into line 5 of Reading
  65. put   line 4 of Cards && line 4 of Directions &&"is beneath you..."into line 6 of Reading
  66. put   line 5 of Cards && line 5 of Directions &&"crowns you..."into line 7 of Reading
  67. put   line 6 of Cards && line 6 of Directions &&"is the immediate future..."into line 8 of Reading
  68. put   line 7 of Cards && line 7 of Directions &&"is yourself & your attitude..."into line 9 of Reading
  69. put   line 8 of Cards && line 8 of Directions &&"is your environment..."into line 10 of Reading
  70. put   line 9 of Cards && line 9 of Directions &&"is your hopes and/or fears..."into line 11 of Reading
  71. put   line 10 of Cards && line 10 of Directions &&"is the final outcome..."into line 12 of Reading
  72.  
  73. put   "Your significator was:" && SigName into line 14 of Reading
  74. put   ">End of Reading...Interpretation Below:"into line 16 of Reading
  75. put   "<Erase this line: Type your interpretation here.>"into line 18 of Reading
  76. put   " " into line 19 of Reading
  77.  
  78. --------send to screen-------
  79.  
  80. repeat with x = 1 to 19
  81.  
  82.   put line x of Reading into line x of bkgnd field "Reading"
  83.  
  84. end repeat
  85.  
  86. play "Buttons2"
  87.  
  88. end mouseUp
  89.  
  90.  
  91.  
  92. -- part 3 (button)
  93. -- low flags: 00
  94. -- high flags: A000
  95. -- rect: left=415 top=101 right=147 bottom=490
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 1009 / 1009
  98. -- text alignment: 1
  99. -- font id: 0
  100. -- text size: 12
  101. -- style flags: 0
  102. -- line height: 16
  103. -- part name: Add Meanings
  104. ----- HyperTalk script -----
  105. on mouseUp
  106.  
  107.   global SigName
  108.   global Cards
  109.   global Directions
  110.  
  111.   put "Covers You." into line 1 of Positions
  112.   put "Crosses You." into line 2 of Positions
  113.   put "Is Behind You." into line 3 of Positions
  114.   put "Is Beneath You." into line 4 of Positions
  115.   put "Crowns You." into line 5 of Positions
  116.   put "Is Before You." into line 6 of Positions
  117.   put "Is Yourself and Your Attitude." into line 7 of Positions
  118.   put "Is Your Environment." into line 8 of Positions
  119.   put "Is Your Hopes and/or Fears." into line 9 of Positions
  120.   put "Is The Final Outcome." into line 10 of Positions
  121.  
  122.   set cursor to watch
  123.   play "Buttons1" f4
  124.  
  125.   repeat with x = 1 to 10
  126.     play harpsichord c3h
  127.     go card (line x of Cards)
  128.  
  129.  
  130.     put line 1 of bkgnd field "Keyword" into Keyword
  131.  
  132.     put "" into Meaning
  133.  
  134.  
  135.     if line x of Directions = "(Upright)" then
  136.  
  137.       put bkgnd field 2 into Meaning
  138.  
  139.     end if
  140.  
  141.     --------
  142.  
  143.     if line x of Directions = "(Reversed)" then
  144.  
  145.       put bkgnd field 3 into Meaning
  146.  
  147.     end if
  148.  
  149.  
  150.     ----send a meaning to screen-----
  151.  
  152.  
  153.     go card 1 of bkgnd "Text"
  154.  
  155.     put "" into line (the number of lines in bkgnd field "Reading") +1 of bkgnd field "Reading"
  156.  
  157.     put "" into line (the number of lines in bkgnd field "Reading") +1 of bkgnd field "Reading"
  158.  
  159.     put "------------------------------" into line (the number of lines in bkgnd field "Reading") +1 of bkgnd field "Reading"
  160.  
  161.     put line x of Cards && line x of Positions into line (the number of lines in bkgnd field "Reading") +1 of bkgnd field "Reading"
  162.  
  163.     put "Keyword:" && Keyword into line (the number of lines in bkgnd field "Reading") +1 of bkgnd field "Reading"
  164.  
  165.     put "Meaning:" && line x of Directions & "..." into line ((the number of lines in bkgnd field "Reading")) +1 of bkgnd field "Reading"
  166.  
  167.     put Meaning into line ((the number of lines in bkgnd field "Reading") +1) of bkgnd field "Reading"
  168.  
  169.     play harpsichord c5
  170.  
  171.   end repeat
  172.  
  173.   play "Buttons2"
  174.   set scroll of bkgnd field "Reading" to 0
  175.  
  176. end mouseUp
  177.  
  178.  
  179.  
  180. -- part 4 (button)
  181. -- low flags: 00
  182. -- high flags: A000
  183. -- rect: left=413 top=150 right=196 bottom=492
  184. -- title width / last selected line: 0
  185. -- icon id / first selected line: 20965 / 20965
  186. -- text alignment: 1
  187. -- font id: 0
  188. -- text size: 12
  189. -- style flags: 0
  190. -- line height: 16
  191. -- part name: Create File
  192. ----- HyperTalk script -----
  193. on mouseUp
  194.  
  195.   global QuerentName
  196.  
  197.   play "Buttons1"
  198.  
  199.   ask "Name for file:" with (QuerentName &"... "& the short date)
  200.  
  201.   put it into FileName
  202.  
  203.   if FileName = "" then
  204.     play "oracOn"
  205.     exit mouseUp
  206.   end if
  207.   ----------------
  208.   open file FileName
  209.  
  210.   if the result <> "" then
  211.     put the result into the message box
  212.     play beep
  213.     wait 2 seconds
  214.     hide message box
  215.     close file FileName
  216.     exit mouseUp
  217.   end if
  218.   write bkgnd field "Reading" to file FileName
  219.  
  220.   close file FileName
  221.   ------------------
  222.   play harpsichord
  223.  
  224. end mouseUp
  225.  
  226.  
  227.  
  228.  
  229. -- part 5 (button)
  230. -- low flags: 00
  231. -- high flags: 2000
  232. -- rect: left=435 top=266 right=299 bottom=470
  233. -- title width / last selected line: 0
  234. -- icon id / first selected line: 0 / 0
  235. -- text alignment: 1
  236. -- font id: 0
  237. -- text size: 12
  238. -- style flags: 0
  239. -- line height: 16
  240. -- part name: To Reading
  241. ----- HyperTalk script -----
  242. on mouseUp
  243.   visual dissolve slow
  244.   play "Buttons1"
  245.   go card 1 of bkgnd "Card Table"
  246. end mouseUp
  247.  
  248.  
  249.  
  250. -- part 6 (button)
  251. -- low flags: 00
  252. -- high flags: A000
  253. -- rect: left=413 top=200 right=246 bottom=492
  254. -- title width / last selected line: 0
  255. -- icon id / first selected line: 23078 / 23078
  256. -- text alignment: 1
  257. -- font id: 0
  258. -- text size: 12
  259. -- style flags: 0
  260. -- line height: 16
  261. -- part name: Hints...
  262. ----- HyperTalk script -----
  263. on mouseUp
  264.  
  265.   show bkgnd field 2
  266.   ------------------
  267.   play harpsichord
  268.  
  269. end mouseUp
  270.  
  271.  
  272.  
  273.  
  274. -- part 7 (field)
  275. -- low flags: 81
  276. -- high flags: 2007
  277. -- rect: left=65 top=31 right=328 bottom=353
  278. -- title width / last selected line: 0
  279. -- icon id / first selected line: 0 / 0
  280. -- text alignment: 0
  281. -- font id: 3
  282. -- text size: 12
  283. -- style flags: 0
  284. -- line height: 16
  285. -- part name: Hints
  286. ----- HyperTalk script -----
  287. on mouseUp
  288.   set the scroll of me to 0
  289.   hide me
  290. end mouseUp
  291.  
  292.